#! /usr/bin/perl
use strict;
use warnings;

#det her er en test

my $avg = `~/Dropbox/perlBog/./test.pl | grep Uptime`;
$avg =~ s/.*(\d):(\d\d)//;
$avg = $1*60+$2;
print "$avg minuts\n";
 

